Softdisk for Windows 42/Softdisk for Windows 42.iso/QUARRY/QUARRY.EXE/QUARRY.dxr/00222_who1.ls

Text File | 1998-01-01 | 436 b | 27 lines

on mouseUp
  global NWGAME, SOND, DT
  if SOND = 0 then
    puppetSound("SCLICK")
  end if
  updateStage()
  set DT to 30
  COUNTTIME()
  if SOND = 0 then
    puppetSound("HAMMER")
  end if
  set NWGAME to random(2)
  puppetSprite(48, 0)
  if NWGAME = 1 then
    set NWGAME to 0
  end if
  if NWGAME = 2 then
    set NWGAME to 1
  end if
  if NWGAME = 0 then
    go("BFIRST")
  end if
  if NWGAME = 1 then
    go("RFIRST")
  end if
end